home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / F-French / (c)f1.d64 / magnat petrole (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  147 lines
  1. 10 PRINT"[147]"
  2. 20 GOTO105
  3. 100 PRINT"[147][154]":IFPEEK(14336)=2ANDPEEK(14805)=24THEN195
  4. 105 POKE53280,6:POKE53281,6:POKE53270,8
  5. 110 PRINTTAB(14)"INSTRUCTIONS"SPC(28)"[163][163][163][163][163][163][163][163][163][163][163][163]":PRINT"POUR JOYSTICK:"
  6. 115 PRINT"GAUCHE ET DROIT=DEPLACE LE GREEMENT"
  7. 120 PRINT"BAS=FORAGE":PRINT"HAUT=RETRACTE LE TUYAU"
  8. 125 PRINT"  QUAND VOUS PESEZ SUR'FIRE BUTTON' ET"
  9. 126 PRINT"QUE LE TUYAU EST DANS L'HUILE,CECI AC-"
  10. 127 PRINT"TIONNE LA POMPE.":PRINT
  11. 128 PRINT"SI LE TUYAU EST DANS LA SALETE,LA DY-"
  12. 130 PRINT"TOMBE.ATTENTION A L'ARGILE ET AUX PO-"
  13. 140 PRINT"CHES DE GAZ,AUX ESPACES ET AUX DEMONS"
  14. 145 PRINT"DANS L'HUILE."
  15. 150 PRINT"S.V.P.[159]ATTENDEZ [154] POUR DES INSTRUCTIONS"
  16. 152 PRINT"ULTERIEURES."
  17. 155 POKE52,56:POKE56,56:CLR:AD=14336
  18. 160 FORA=ADTOAD+207:READB:POKEA,B:NEXT:POKE56334,PEEK(56334)AND254:POKE1,51
  19. 165 FORA=AD+256TOAD+471:POKEA,PEEK(38912+A):NEXT:POKE1,55
  20. 170 POKE56334,PEEK(56334)OR1
  21. 175 PRINT"[145]  PESER SUR UNE TOUCHE POUR DEBUTER."
  22. 180 IFPEEK(197)=64ANDPEEK(653)=0ANDPEEK(56320)=127THEN180
  23. 185 :
  24. 190 :
  25. 195 PRINT"[147]":POKE53280,6:POKE54296,15:DIMA%(40):W=1184:JS=56320
  26. 200 POKE53282,6:POKE53283,0:POKE53270,24:POKE54291,0:POKE54292,240
  27. 205 FORI=0TO2:POKE54276+I*7,8:NEXT:POKE53281,3
  28. 210 POKE54284,0:POKE54285,240:POKE54277,0:POKE54278,240:IFZ>B%(T)THENB%(T)=Z
  29. 215 POKE53272,21:PRINT"[147]",T,"  $"MID$(STR$(Z*100),2)".00"
  30. 220 PRINTTAB(8)"NIVEAU      HIGH SCORE"
  31. 225 FORA=1TO8:PRINT,A,"  $"MID$(STR$(B%(A)*100),2)".00":PRINT:NEXT
  32. 230 PRINT" DIFFICULTEE :   ? 12345678":T=1
  33. 235 POKE56194+T,0:T1=T:T=T+(PEEK(JS)AND4)/4-(PEEK(JS)AND8)/8:T=(7ANDT-1)+1
  34. 240 IFT<>T1THENPOKE56194+T1,6
  35. 245 POKE56194+T,1:L=3:IFT/2=INT(T/2)THENL=2
  36. 250 S=20:IFT=3ORT=4ORT>6THENS=30
  37. 255 N=24:IFT>4THENN=25:L=L+1
  38. 260 GETA$:IF(PEEK(56320)AND16)=16ANDA$<>CHR$(13)THEN235
  39. 265 POKE53272,31:PRINT"[147]":POKE53280,9:POKE53281,1:M=4:Z=0:K=0:GOSUB590
  40. 270 POKEW+X,14:X=20:P=20:Y=L:R=1:GOSUB705:GOSUB645:POKE198,0
  41. 275 :
  42. 280 :
  43. 285 REM** BOUCLE PRINC.DU PROG.**
  44. 290 A=PEEK(JS):IF(AAND4)=0ANDR=1THENPOKEW+X,14:X=X+(X>0)
  45. 295 IF(AAND8)=0ANDR=1THENPOKEW+X,14:X=X-(X<39)
  46. 300 POKEW+X,2:IF(AAND2)=0ANDP>0THEN340
  47. 305 IF(AAND1)=0ANDR>1THEN400
  48. 310 IF(AAND16)=0THEN435
  49. 315 GETA$:IFR=1ANDA$=" "THEN375
  50. 320 GOTO290
  51. 325 :
  52. 330 :
  53. 335 REM** FORAGE ET EXPLOSIONS DU GAZ **
  54. 340 A=R*40+W+X:C=PEEK(A):P=P-1:GOSUB675
  55. 345 IFC=NORC=3ORA>2023THENFORA=1TO3:GOSUB730:NEXT:GOTO290
  56. 350 IFRND(1)>.06ORC<>14THENFORB=1TO3:POKEA,C+B:GOSUB730:NEXT:R=R+1:GOTO290
  57. 355 FORB=1TO2:POKEA,C+B:GOSUB730:NEXT:GOSUB735:B=0
  58. 360 R=R-1:POKE54296,4:IFR<1THENPOKE54296,15:POKEW+X,23:GOSUB715:GOTO375
  59. 365 POKE54273,B:POKE54276,129:A=R*40+W+X:C=PEEK(A):PK=PEEK(A+54272):POKEA,C+1
  60. 370 POKEA+54272,15:FORD=0TO200:NEXT:POKEA,C-3:POKEA+54272,PK:B=B+10:GOTO360
  61. 375 POKEW+X,14:X=20:M=M-1:P=20:Y=L:R=1:GOSUB705:IFM<0THEN205
  62. 380 GOSUB645:GOTO290
  63. 385 :
  64. 390 :
  65. 395 REM**FORAGE**
  66. 400 R=R-1:B=R*40+W+X:C=PEEK(B):FORA=1TO3:POKEB,C-A:GOSUB730:NEXT
  67. 405 P=P+1:GOSUB675:IFR<>1THEN290
  68. 410 FORA=W+80TO2023:IFPEEK(A)=9THEN290
  69. 415 NEXT:M=M+1:FORC=1TO3:GOSUB705:NEXT:GOSUB590:GOSUB645:GOTO290
  70. 420 :
  71. 425 :
  72. 430 REM* DYNAMITE,JAILLISSEMENT,DIABLES*
  73. 435 J=Z:Q=R-1:FORA=0TO21:A%(A)=0:NEXT:B=Q*40+W+X:A=PEEK(B):IFA<>7THEN480
  74. 440 A=W+X:B=40:IFY<1THEN290
  75. 445 A=A+40:C=PEEK(A):POKEA,C+1:IFC=14ORC=9THENPOKEA,C+4
  76. 450 POKE54273,B:POKE54276,33:FORD=0TO200:NEXT:D=PEEK(A+40)
  77. 455 IFD<>4ANDD<>NANDD<>3ANDA<1984THENB=B-2:POKEA,C:GOTO445
  78. 460 POKE54276,8:GOSUB735:POKEA+54312,15
  79. 465 IFC<>14ANDC<>9THENR=R-1
  80. 470 Y=Y-1:GOSUB665:GOTO290
  81. 475 :
  82. 480 A%(X)=1:POKE54273,40:POKE54276,129:POKE54296,4:V=W+X-40
  83. 485 IFA=12THENPOKEB,17:Z=Z+Q:POKEV,0
  84. 490 E=0:F=38:D=1:G=1:I=1:GOSUB530:POKEV,1:E=39:F=1:D=-1:G=D:I=D:GOSUB530
  85. 495 E=0:F=39:D=1:G=-40:I=0:GOSUB530:POKEV,0:IFC<>6THEN515
  86. 500 Z=J:POKEB,3:POKEB+54272,2:POKEV,14:FORA=0TO40:POKE54280,88:POKE54283,17
  87. 505 POKE53283,14:POKE54296,6:FORB=1TO5:NEXT
  88. 510 POKE54296,0:POKE53283,0:FORB=1TO5:NEXTB,A:POKE54283,0:B=0:GOTO360
  89. 515 IFHTHENQ=Q-1:GOTO490
  90. 520 POKEV,14:POKE54276,8:POKE54296,15:POKE54283,2:GOSUB705:GOSUB645:GOTO290
  91. 525 :
  92. 530 IFC=6THENRETURN
  93. 535 H=0:FORA=ETOFSTEPD:IFA%(A)=0THEN570
  94. 540 B=Q*40+W+A+G:C=PEEK(B)
  95. 545 IFC=9ORC=12THENPOKEB,C+5:H=1:Z=Z+Q+ABS(I)-1:A%(A+I)=1:GOTO565
  96. 550 IFC=14ORC=17THENA%(A+I)=1:H=1:GOTO570
  97. 555 IFC=3THENC=6:RETURN
  98. 560 A%(A+I)=0:GOTO570
  99. 565 IFRND(1)<.02ANDC<>12THENC=6:RETURN
  100. 570 NEXT:RETURN
  101. 575 :
  102. 580 :
  103. 585 REM*INITIALISATION DE L'ETALAGE*
  104. 590 PRINT"[155]";:FORA=1TO99:PRINT"DDDDDDDD";:NEXT:PRINT"DDDDDDD";
  105. 595 POKE2023,4:POKE56295,15:B=400:C=1264:FORA=1TO2:FORD=1TO40
  106. 600 E=INT(RND(0)*B/2)*2+C:IFPEEK(E)=9ORPEEK(E+1)=9THEN600
  107. 605 POKEE,9:POKEE+1,9:NEXT:B=360:C=1665:NEXT:FORA=1TOS
  108. 610 B=INT(RND(1)*340)*2+1264:C=PEEK(B):IFC=9ORC=NTHEN610
  109. 615 POKEB,N:POKEB+54272,10:NEXT:FORA=0TO199:POKE55296+A,0:NEXT:FORA=0TO39
  110. 620 POKE55376+A,3:POKE1104+A,20:NEXT
  111. 625 FORA=0TO3:POKE55337+A,2:NEXT:RETURN
  112. 630 :
  113. 635 :
  114. 640 REM* MISE A JOUR DES INFORMATIONS SUR L'ECRAN *
  115. 645 PRINT""SPC(23)"$"MID$(STR$(Z*100),2)".00"
  116. 650 A=INT(Z/1000):IFA=K+1THENK=K+1:GOSUB705:GOSUB705:M=M+1
  117. 655 IFM<1THENPOKE1024,14:POKE55296,14:GOTO665
  118. 660 FORA=1024TO1023+M:POKEA,2:POKEA+54272,0:NEXT:POKEA,14:POKEA+54272,0
  119. 665 IFY=0THENPOKE1031,14:POKE55303,0:GOTO675
  120. 670 FORA=1031TO1030+Y:POKEA,19:POKEA+54272,0:NEXT:POKEA,14:POKEA+54272,0
  121. 675 IFP<1THENPOKE1064,14:POKE55336,0:RETURN
  122. 680 FORB=1064TO1063+P:POKEB,17:POKEB+54272,0:NEXT:POKEB,14:POKEB+54272,0
  123. 685 RETURN
  124. 690 :
  125. 695 :
  126. 700 REM** MUSIQUE ET AUTRES SUBROUTINES **
  127. 705 POKE54276,17:FORA=15TO0STEP-1:POKE54296,A:POKE54273,86:FORB=1TO25:NEXTB,A
  128. 710 POKE54276,8:POKE54296,15:RETURN
  129. 715 POKE54276,8:POKE54276,129:POKE54273,91:FORD=15TO0STEP-1:POKE54296,D
  130. 720 POKE53281,1:POKE53280,2:FORE=1TO70:NEXT:POKE53280,6:NEXT
  131. 725 POKE54276,8:POKE54296,15:POKE53280,9:RETURN
  132. 730 POKE54287,20:POKE54290,8:POKE54290,129:POKE54290,128:RETURN
  133. 735 POKEA,21:POKEA+40,22:GOSUB715:POKEA,14:POKEA+40,14:RETURN
  134. 740 :
  135. 745 :
  136. 750 REM ** DATA POUR LES CARACTERES **
  137. 755 DATA2,138,164,73,74,52,20,8,64,81,37,146,82,44,40,16,24,24,36
  138. 760 DATA60,90,102,231,153,20,42,42,20,62,73,20,20,136,34,136,34,136,34,136,34
  139. 765 DATA148,22,148,34,136,34,136,34,148,22,148,22,148,34,136,34,148,22,148
  140. 770 DATA22,148,22,148,22,136,62,188,62,188,62,188,22,170,170,170,170,170
  141. 775 DATA170,170,170,150,150,150,170,170,170,170,170,150,150,150,150,150,170,170
  142. 780 DATA170,150,150,150,150,150,150,150,150,150,190,190,190,190,190,190,150,0,0
  143. 785 DATA0,0,0,0,0,0,20,20,20,0,0,0,0,0,20,20,20,20,20,0,0,0,20,20,20,20,20,20
  144. 790 DATA20,20,20,60,60,60,60,60,60,20,0,60,60,60,60,60,60,0,0,0,0,255,255,0,0,0
  145. 795 DATA218,118,181,153,110,93,197,65,65,82,150,85,121,181,150,173,2,106,129,20
  146. 800 DATA64,162,129,2,169,128,141,19,145,169,0,133,136,34,136,34,136,34,136,34
  147.